home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok75 / oberon3.0 / o3demo2.lzh / Beispiele / Fak.mod < prev    next >
Text File  |  1992-08-22  |  301b  |  19 lines
  1. MODULE Fak;
  2.  
  3. IMPORT BI := BigIntegers, io;
  4.  
  5. VAR
  6.   i: INTEGER;
  7.   bi: BI.BigInteger;
  8.  
  9. BEGIN
  10.   bi := BI.Create(1);
  11.   FOR i:=1 TO 100 DO
  12.     io.WriteInt(i,4); io.WriteString("! =");
  13.     bi := bi.Mul(BI.Create(i))(BI.BigInteger);
  14.     io.WriteString(bi.ConvertToString()^);
  15.     io.WriteLn;
  16.   END;
  17. END Fak.
  18.  
  19.